home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / pcq12src.lzh / Runtime / System / Libraries / MathFFP.asm < prev    next >
Assembly Source File  |  1991-03-13  |  2KB  |  101 lines
  1. *
  2. *    MathFFP.asm for PCQ Pascal
  3. *    Copyright 1990 Patrick Quaid
  4. *
  5. *    This implements the stubs for the routines defined in
  6. *    Include/Libraries/MathFFP.i.  These are NOT the stubs
  7. *    used for normal PCQ Pascal floating point math - those
  8. *    calls are handled in-line, and are referenced by a
  9. *    different library pointer (_p%MathBase vs. _MathBase)
  10. *
  11.  
  12.     XREF    _MathBase
  13.  
  14.     SECTION    PCQ_Runtime,CODE
  15.  
  16.     XREF    _LVOSPAbs
  17.     XDEF    _SPAbs
  18. _SPAbs
  19.     move.l    4(sp),d0
  20.     move.l    _MathBase,a6
  21.     jmp    _LVOSPAbs(a6)
  22.  
  23.     XREF    _LVOSPAdd
  24.     XDEF    _SPAdd
  25. _SPAdd
  26.     movem.l    4(sp),d0/d1
  27.     move.l    _MathBase,a6
  28.     jmp    _LVOSPAdd(a6)
  29.  
  30.     XREF    _LVOSPCeil
  31.     XDEF    _SPCeil
  32. _SPCeil
  33.     move.l    4(sp),d0
  34.     move.l    _MathBase,a6
  35.     jmp    _LVOSPCeil(a6)
  36.  
  37.     XREF    _LVOSPCmp
  38.     XDEF    _SPCmp
  39. _SPCmp
  40.     movem.l    4(sp),d0/d1
  41.     move.l    _MathBase,a6
  42.     jmp    _LVOSPCmp(a6)
  43.  
  44.     XREF    _LVOSPDiv
  45.     XDEF    _SPDiv
  46. _SPDiv
  47.     movem.l    4(sp),d0/d1
  48.     move.l    _MathBase,a6
  49.     jmp    _LVOSPDiv(a6)
  50.  
  51.     XREF    _LVOSPFix
  52.     XDEF    _SPFix
  53. _SPFix
  54.     move.l    4(sp),d0
  55.     move.l    _MathBase,a6
  56.     jmp    _LVOSPFix(a6)
  57.  
  58.     XREF    _LVOSPFloor
  59.     XDEF    _SPFloor
  60. _SPFloor
  61.     move.l    4(sp),d0
  62.     move.l    _MathBase,a6
  63.     jmp    _LVOSPFloor(a6)
  64.  
  65.     XREF    _LVOSPFlt
  66.     XDEF    _SPFlt
  67. _SPFlt
  68.     move.l    4(sp),d0
  69.     move.l    _MathBase,a6
  70.     jmp    _LVOSPFlt(a6)
  71.  
  72.     XREF    _LVOSPMul
  73.     XDEF    _SPMul
  74. _SPMul
  75.     movem.l    4(sp),d0/d1
  76.     move.l    _MathBase,a6
  77.     jmp    _LVOSPMul(a6)
  78.  
  79.     XREF    _LVOSPNeg
  80.     XDEF    _SPNeg
  81. _SPNeg
  82.     move.l    4(sp),d0
  83.     move.l    _MathBase,a6
  84.     jmp    _LVOSPNeg(a6)
  85.  
  86.     XREF    _LVOSPSub
  87.     XDEF    _SPSub
  88. _SPSub
  89.     movem.l    4(sp),d0/d1
  90.     move.l    _MathBase,a6
  91.     jmp    _LVOSPSub(a6)
  92.  
  93.     XREF    _LVOSPTst
  94.     XDEF    _SPTst
  95. _SPTst
  96.     move.l    4(sp),d1
  97.     move.l    _MathBase,a6
  98.     jmp    _LVOSPTst(a6)
  99.  
  100.     END
  101.